﻿Public Class frmInicio
    Dim c As Integer = 0
    Dim usuario As String = ""
    Dim password As String = ""
    Private Sub frmInicio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
    Public Sub data(ByVal nombre As String, ByVal pass As String)
        usuario = nombre
        password = pass
        
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" And TextBox2.Text = "" Then
            MsgBox("INGRESAR DATOS")
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox1.Focus()
        Else
        Me.Hide()
        frmLogeoPrincipal.Show()
        c = 0
        End If
    End Sub

    
End Class
